home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gigantic Games 2
/
Gigantic Games 2.iso
/
pc
/
_a_
/
abitur
/
txt
/
globals.def
< prev
next >
Wrap
Text File
|
1994-12-23
|
1KB
|
42 lines
DEFINITION MODULE Globals;
FROM FaecherNamen IMPORT FaecherTypen;
TYPE
Noten = ARRAY[Turnen..Informatik] OF REAL;
SpielerPtr = POINTER TO Spieler;
Spieler = RECORD
Next: SpielerPtr;
Name: ARRAY[0..255] OF CHAR;
Jahr: INTEGER; (* Jahr = 5: Schüler hat absolviert *)
(* Jahr = 6: Schüler ist herausgefallen *)
Zeugnis: RECORD
VorNote,
AktuelleSumme,
Schnitt : Noten;
AnzInSumme: ARRAY[Turnen..Informatik] OF INTEGER;
GesammtSchnitt: REAL
END;
SympathieNoteTurnen: REAL;
ErfahrungsNoteGs: REAL;
Absenzen: INTEGER;
Provisorisch: INTEGER (* Gerade: Nein
* Ungerade : Ja
* 0,1: noch nie repetiert
* 2,3: Repetiert
* 4,5: 2mal repetiert
-gefährdet
* 6... herausgefallen
*)
END; (* Spieler *)
VAR AlleSpieler: SpielerPtr;
AnzahlSpieler: INTEGER;
PROCEDURE FindSpieler(nr: INTEGER): SpielerPtr;
END Globals.